CREATE
OR REPLACE PROCEDURE chzl_chage_insert_chzl (p_phid IN NUMBER) AS 
per NUMBER;
target_phid NUMBER;
project_phid NUMBER;
BEGIN

SELECT phid_pc INTO project_phid FROM p_form_chzlbg_m WHERE phid = p_phid;
SELECT phid INTO target_phid FROM p_form_chzl_m WHERE phid_pc = project_phid;
-- 查找项目
    
    FOR rec IN (SELECT * FROM p_form_chzlbg_d1 WHERE pphid = p_phid) LOOP
        INSERT INTO
            p_form_chzl_d1 (
                phid,          --01
                code,          --02
                rel_key1,      --03
                asr_flag,      --04
                imp_info,      --05
                creator,       --06
                editor,        --07
                ng_insert_dt,  --08
                ng_update_dt,  --09
                ng_record_ver, --10
                cur_orgid,     --11
                ng_phid_org,   --12
                ng_phid_cu,    --13
                ng_phid_bp,    --14
                ng_phid_original,    --15
                ng_orgid_original,   --16
                ng_phid_ui_scheme,   --17
                ng_sv_search_key,    --18
                ng_sd_search_key,    --19
                ng_share_sign,       --20
                ng_write_source,     --21
                ng_data_status,      --22
                lineid,              --23
                pphid,               --24
                phid_pc,             --25
                itemid,              --26
                res_propertys,       --27
                res_masterdata,      --28
                phid_resbs,          --29
                u_gcbsjsl,           --30
                u_desl,              --31
                u_deshl,             --32
                u_xwsl,              --33
                u_xeshl,             --34
                u_bz,                --35
                u_sjsyl,             --36
                u_desyl,             --37
                u_xesyl              --38

            )
        VALUES
            (
                 seq_auto_phid_chzl_detail.nextval,  --01
                null,                               --02
                null,                               --03
                0,                                  --04
                null,                               --05
                per,                                --06
                per,                                --07
                SYSDATE,                            --08
                SYSDATE,                            --09
                null,                               --10
                null,                               --11
                null,                               --12
                null,                               --13
                0,                                  --14
                0,                                  --15
                0,                                  --16
                0,                                  --17
                '10',                               --18
                '1',                                --19
                5,                                  --20
                0,                                  --21
                0,                                  --22
                null,                               --23
                target_phid,                        --24
                null,                               --25
                rec.itemid,                              --26
                null,                               --27
                null,                               --28
                null,                               --29
                rec.u_bghsjsl,                              --30
                rec.u_bghdesl,                              --31
                rec.u_bghdeshl,                              --32
                rec.u_bghxesl,                              --33
                rec.u_bghxeshl,                              --34
                rec.u_bz,                              --35
                rec.u_bghsjsl,                              --36
                rec.u_bghdesl,                               --37
                rec.u_bghxesl                             --38

            );
    END LOOP;


commit;

EXCEPTION WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE ('插入失败，错误信息：' || SQLERRM);

RAISE;

ROLLBACK;

END chzl_chage_insert_chzl;

